home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / geos / geos2.d64 / text konverter (.txt) < prev   
Commodore BASIC  |  1995-08-05  |  3KB  |  172 lines
  1. 0 REM GEOWRITE TEXTKONVERTER
  2. 10 DIM Z$(255),K(23)
  3. 15 GOSUB655
  4. 20 GOSUB610
  5. 25 PRINT" 1 = GEOS-TEXT ERZEUGEN":PRINT
  6. 30 PRINT" 2 = TABELLE AENDERN":PRINT
  7. 35 PRINT" 3 = TABELLE LADEN":PRINT
  8. 40 PRINT" 4 = TABELLE SPEICHERN":PRINT
  9. 45 PRINT:PRINT"BITTE WAEHLEN !"
  10. 50 GETW$:W=VAL(W$):IFW<1ORW>4THEN50
  11. 55 GOSUB610
  12. 60 OPEN1,8,15,"I:0":GOSUB635
  13. 65 ON W GOSUB85,465,520,565
  14. 70 CLOSE1
  15. 75 GOTO20
  16. 80 :
  17. 85 PRINT" BITTE GEBEN SIE DEN NAMEN DES ZU "
  18. 90 PRINT" KONVERTIERENDEN TEXTES EIN!"
  19. 95 PRINT:INPUTAT$
  20. 100 GOSUB610
  21. 105 PRINT" WIEVIELE ZEICHEN PRO SEITE (1-4580) ":PRINT
  22. 110 INPUTAZ
  23. 115 IFAZ<1ORAZ>4580THEN100
  24. 120 :
  25. 125 REM
  26. 130 OPEN2,8,2,AT$+",R":GOSUB635
  27. 135 M$="TEXT-DUMMY"
  28. 140 PRINT#1,"S:";M$+"*"
  29. 145 OPEN3,8,3,M$+STR$(SZ+1)+",S,W":GOSUB635
  30. 150 :
  31. 155 REM
  32. 160 FORI=0TO23
  33. 165 PRINT#3,CHR$(K(I));
  34. 170 NEXTI
  35. 175 :
  36. 180 REM
  37. 185 P=0
  38. 190 GET#2,T$:IFT$=""THENT$=CHR$(0)
  39. 195 S=ST AND 64:T=ASC(T$)
  40. 200 IFT<161ORT>170THEN255
  41. 205 T1=T:T=69
  42. 210 IFT1=161THENT1=79:GOTO250
  43. 215 IFT1=165THENT1=65:GOTO250
  44. 220 IFT1=166THENT1=85:GOTO250
  45. 230 IFT1=168THENT1=207:GOTO250
  46. 235 IFT1=169THENT1=193:GOTO250
  47. 240 IFT1=170THENT1=170:GOTO250
  48. 245 IFT1=167THENT1=83:T=T1
  49. 250 PRINT#3,Z$(T1);
  50. 255 PRINT#3,Z$(T);
  51. 260 IFSTHEN270
  52. 265 P=P+1:IFP<AZTHEN190
  53. 270 PRINT#3,CHR$(0)
  54. 275 CLOSE3
  55. 280 X$=M$+STR$(SZ+1):GOSUB365
  56. 285 E$=C$:F$=D$
  57. 290 X$="DUMMY":GOSUB365
  58. 295 OPEN5,8,5,"#":GOSUB635
  59. 300 PRINT#1,"U1";5;0;ASC(C$);ASC(D$)
  60. 305 PRINT#1,"B-P";5;SZ*2+2
  61. 310 PRINT#5,E$;F$;
  62. 315 PRINT#1,"U2";5;0;ASC(C$);ASC(D$)
  63. 320 CLOSE5
  64. 325 SZ=SZ+1
  65. 330 GOSUB610
  66. 335 PRINT "ANZAHL SEITEN: ";SZ
  67. 340 IFSZ=63ANDS=0THENPRINT:PRINT" TEXT ZU LANG !":GOTO350
  68. 345 IFS=0THEN145
  69. 350 PRINT#1,"S:";M$;"*"
  70. 355 CLOSE2:RETURN
  71. 360 :
  72. 365 REM
  73. 370 OPEN4,8,4,"#":GOSUB635
  74. 375 A$=CHR$(18):B$=CHR$(1)
  75. 380 A=ASC(A$):B=ASC(B$)
  76. 385 PRINT#1,"U1";4;0;A;B
  77. 390 GET#4,A$,B$
  78. 395 FORI=0TO7
  79. 400 K=0
  80. 405 PRINT#1,"B-P";4;I*32+3
  81. 410 GET#4,C$,D$
  82. 415 IFD$=""THEND$=CHR$(0)
  83. 420 FORJ=1TOLEN(X$)
  84. 425 GET#4,W$
  85. 430 IFW$=MID$(X$,J,1)THENK=K+1
  86. 435 NEXTJ
  87. 440 IFK=LEN(X$)THEN450
  88. 445 NEXTI:GOSUB635:GOTO380
  89. 450 CLOSE4
  90. 455 RETURN
  91. 460 :
  92. 465 REM
  93. 470 INPUT" QUELLCODE-NUMMER      ";Q
  94. 475 IFQ<0ORQ>255THEN470
  95. 480 PRINT:PRINT" ZUGEORDNETER GEOS-CODE:";ASC(Z$(Q))
  96. 485 NC=ASC(Z$(Q))
  97. 490 PRINT:PRINT" NEUES GEOS-CODE:":PRINT
  98. 495 INPUT" (RETURN=UEBERNEHMEN, 0=ENDE)";NC
  99. 500 IFNC<1ORNC>255THEN510
  100. 505 Z$(Q)=CHR$(NC):GOSUB610:GOTO465
  101. 510 RETURN
  102. 515 :
  103. 520 REM
  104. 525 INPUT"NAME DERTABELLE";NT$
  105. 530 OPEN2,8,2,NT$+",S,R":GOSUB635
  106. 535 FORI=0TO255
  107. 540 GET#2,Z$(I)
  108. 545 NEXTI
  109. 550 CLOSE2
  110. 555 RETURN
  111. 560 :
  112. 565 REM
  113. 570 INPUT"NAMEN FUER DIE NEUE TABELLE";NT$
  114. 575 OPEN2,8,2,NT$+",S,W":GOSUB635
  115. 580 FORI=0TO255
  116. 585 PRINT#2,Z$(I);
  117. 590 NEXTI
  118. 595 CLOSE2
  119. 600 RETURN
  120. 605 :
  121. 610 PRINTCHR$(147)
  122. 615 PRINTTAB(9);"*** TEXT-KONVERTER ***"
  123. 620 PRINT:PRINT
  124. 625 RETURN
  125. 630 :
  126. 635 INPUT#1,F,FT$,FT,FS
  127. 640 IFF<>0THENPRINT:PRINT" ";FT$:STOP
  128. 645 RETURN
  129. 650 :
  130. 655 RESTORE
  131. 660 FORI=0TO255
  132. 665 READZ:Z$(I)=CHR$(Z)
  133. 670 NEXTI
  134. 675 READZ:IFZ=-1THEN685
  135. 680 PRINT:PRINT "FEHLER IN DATAS":STOP
  136. 685 FORJ=OTO23
  137. 690 READK(J)
  138. 695 NEXTJ
  139. 700 RETURN
  140. 710 REM DEKODIERTABELLE
  141. 715 DATA32,32,32,32,32,32,32,32,32,32
  142. 720 DATA32,32,32,13,32,32,32,32,32,32
  143. 725 DATA32,32,32,32,32,32,32,32,32,32
  144. 730 DATA32,32,32,33,34,35,36,37,38,39
  145. 735 DATA40,41,42,43,44,45,46,47,48,49
  146. 740 DATA50,51,52,53,54,55,56,57,58,59
  147. 745 DATA60,61,62,63,64,97,98,99,100,101
  148. 750 DATA102,103,104,105,106,107,108,109,110,111
  149. 755 DATA112,113,114,115,116,117,118,119,120,121
  150. 760 DATA122,91,92,93,94,13,96,65,66,67
  151. 765 DATA68,69,70,71,72,73,74,75,76,77
  152. 770 DATA78,79,80,81,82,83,84,85,86,87
  153. 775 DATA88,89,90,123,124,125,126,127,32,32
  154. 780 DATA32,32,32,32,32,32,32,32,32,32
  155. 785 DATA32,32,32,32,32,32,32,32,32,32
  156. 790 DATA32,32,32,32,32,32,32,32,32,32
  157. 795 DATA32,32,32,32,32,32,32,32,32,32
  158. 800 DATA32,32,32,32,32,32,32,32,32,32
  159. 805 DATA32,32,32,32,32,32,32,32,32,32
  160. 810 DATA32,32,32,65,66,67,68,69,70,71
  161. 815 DATA72,73,74,75,76,77,78,79,80,81
  162. 820 DATA82,83,84,85,86,87,88,89,90,123
  163. 825 DATA124,125,126,127,32,32,32,32,32,32
  164. 830 DATA32,32,32,32,32,32,32,32,32,32
  165. 835 DATA32,32,32,32,32,32,32,32,32,32
  166. 840 DATA32,32,32,32,32,32,-1
  167. 845 :
  168. 850 REM
  169. 855 DATA24,0,48,1,64,0,144,0,224,0
  170. 860 DATA48,1,48,1,48,1,48,1,48,1
  171. 865 DATA23,9,0,0
  172.